/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / skk / skk-num.elc.z / skk-num.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 38 3a 30 34 3a 32 32 20 | 31 39 39 37 0a 3b 3b 3b |8:04:22 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 73 6b |acs-20.3|/lisp/sk|
|00000080| 6b 2f 73 6b 6b 2d 6e 75 | 6d 2e 65 6c 0a 3b 3b 3b |k/skk-nu|m.el.;;;|
|00000090| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000a0| 30 2e 33 20 22 56 61 74 | 69 63 61 6e 20 43 69 74 |0.3 "Vat|ican Cit|
|000000b0| 79 22 20 58 45 6d 61 63 | 73 20 20 4c 75 63 69 64 |y" XEmac|s  Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 20 58 45 6d 61 |ersion 2|.25 XEma|
|000000e0| 63 73 3b 20 32 32 2d 4d | 61 72 2d 39 36 2e 0a 3b |cs; 22-M|ar-96..;|
|000000f0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000100| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000110| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000120| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000130| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 39 |xist in |Emacs 19|
|00000140| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000150| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000160| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000170| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000180| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000190| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|000001a0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001b0| 73 2d 76 65 72 73 69 6f | 6e 20 22 32 30 22 29 29 |s-versio|n "20"))|
|000001c0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 73 |).    (e|rror "`s|
|000001d0| 6b 6b 2d 6e 75 6d 2e 65 | 6c 27 20 77 61 73 20 63 |kk-num.e|l' was c|
|000001e0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001f0| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000200| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000210| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 20 6e 69 6c 29 29 0a 0a | 28 72 65 71 75 69 72 65 | nil))..|(require|
|00000240| 20 27 6d 75 6c 65 29 0a | 3b 3b 3b 23 23 23 63 6f | 'mule).|;;;###co|
|00000250| 64 69 6e 67 20 73 79 73 | 74 65 6d 3a 20 65 73 63 |ding sys|tem: esc|
|00000260| 61 70 65 2d 71 75 6f 74 | 65 64 0a 0a 28 62 79 74 |ape-quot|ed..(byt|
|00000270| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c0 c2 21 88 |e-code "|..!...!.|
|00000280| c0 c3 21 87 22 20 5b 72 | 65 71 75 69 72 65 20 73 |..!." [r|equire s|
|00000290| 6b 6b 2d 66 6f 72 65 77 | 6f 72 64 20 73 6b 6b 2d |kk-forew|ord skk-|
|000002a0| 76 61 72 73 20 63 6c 5d | 20 32 29 0a 28 64 65 66 |vars cl]| 2).(def|
|000002b0| 76 61 72 20 73 6b 6b 2d | 6e 75 6d 2d 74 79 70 65 |var skk-|num-type|
|000002c0| 2d 6c 69 73 74 20 27 28 | 28 3f 30 20 2e 20 69 64 |-list '(|(?0 . id|
|000002d0| 65 6e 74 69 74 79 29 20 | 28 3f 31 20 2e 20 73 6b |entity) |(?1 . sk|
|000002e0| 6b 2d 7a 65 6e 6b 61 6b | 75 2d 6e 75 6d 2d 73 74 |k-zenkak|u-num-st|
|000002f0| 72 29 20 28 3f 32 20 2e | 20 73 6b 6b 2d 6b 61 6e |r) (?2 .| skk-kan|
|00000300| 6a 69 2d 6e 75 6d 2d 73 | 74 72 29 20 28 3f 33 20 |ji-num-s|tr) (?3 |
|00000310| 2e 20 73 6b 6b 2d 6b 61 | 6e 6a 69 2d 6e 75 6d 2d |. skk-ka|nji-num-|
|00000320| 73 74 72 32 29 20 28 3f | 34 20 2e 20 73 6b 6b 2d |str2) (?|4 . skk-|
|00000330| 72 65 63 6f 6d 70 75 74 | 65 2d 6e 75 6d 65 72 61 |recomput|e-numera|
|00000340| 6c 73 29 20 28 3f 39 20 | 2e 20 73 6b 6b 2d 73 68 |ls) (?9 |. skk-sh|
|00000350| 6f 67 69 2d 6e 75 6d 2d | 73 74 72 29 29 20 22 5c |ogi-num-|str)) "\|
|00000360| 0a 2a 1b 24 28 42 3f 74 | 3b 7a 24 4e 4a 51 34 39 |.*.$(B?t|;z$NJQ49|
|00000370| 24 4e 24 3f 24 61 24 4e | 21 22 25 24 25 73 25 47 |$N$?$a$N|!"%$%s%G|
|00000380| 25 2f 25 39 24 48 4a 51 | 34 39 24 4b 3b 48 4d 51 |%/%9$HJQ|49$K;HMQ|
|00000390| 24 39 24 6b 34 58 3f 74 | 24 48 24 4e 25 49 25 43 |$9$k4X?t|$H$N%I%C|
|000003a0| 25 48 25 5a 25 22 24 4e | 25 6a 25 39 25 48 21 23 |%H%Z%"$N|%j%9%H!#|
|000003b0| 1b 28 42 0a 1b 24 28 42 | 33 46 4d 57 41 47 24 4f |.(B..$(B|3FMWAG$O|
|000003c0| 21 22 1b 28 42 28 1b 24 | 28 42 3f 74 3b 7a 24 4e |!".(B(.$|(B?t;z$N|
|000003d0| 1b 28 42 20 63 68 61 72 | 2d 74 79 70 65 20 2e 20 |.(B char|-type . |
|000003e0| 1b 24 28 42 34 58 3f 74 | 4c 3e 1b 28 42 29 20 1b |.$(B4X?t|L>.(B) .|
|000003f0| 24 28 42 24 48 24 24 24 | 26 39 3d 40 2e 24 4b 24 |$(B$H$$$|&9=@.$K$|
|00000400| 4a 24 43 24 46 24 24 24 | 6b 21 23 1b 28 42 0a 63 |J$C$F$$$|k!#.(B.c|
|00000410| 61 72 20 1b 24 28 42 49 | 74 4a 2c 24 4f 21 22 4e |ar .$(BI|tJ,$O!"N|
|00000420| 63 24 28 24 50 21 22 38 | 2b 3d 50 24 37 38 6c 24 |c$($P!"8|+=P$78l$|
|00000430| 2c 1b 28 42 20 5c 22 1b | 24 28 42 4a 3f 40 2e 1b |,.(B \".|$(BJ?@..|
|00000440| 28 42 23 31 1b 24 28 42 | 47 2f 1b 28 42 5c 22 20 |(B#1.$(B|G/.(B\" |
|00000450| 1b 24 28 42 24 4e 24 48 | 24 2d 21 22 1b 28 42 23 |.$(B$N$H|$-!".(B#|
|00000460| 20 1b 24 28 42 35 2d 39 | 66 24 4e 44 3e 38 65 24 | .$(B5-9|f$ND>8e$|
|00000470| 4b 49 3d 3c 28 24 35 24 | 6c 24 6b 3f 74 1b 28 42 |KI=<($5$|l$k?t.(B|
|00000480| 0a 1b 24 28 42 3b 7a 1b | 28 42 20 5c 22 31 5c 22 |..$(B;z.|(B \"1\"|
|00000490| 20 1b 24 28 42 24 72 1b | 28 42 20 63 68 61 72 2d | .$(B$r.|(B char-|
|000004a0| 74 79 70 65 20 1b 24 28 | 42 24 47 49 3d 24 6f 24 |type .$(|B$GI=$o$|
|000004b0| 37 24 3f 24 62 24 4e 24 | 72 42 65 46 7e 24 39 24 |7$?$b$N$|rBeF~$9$|
|000004c0| 6b 21 23 1b 28 42 22 29 | 0a 28 64 65 66 76 61 72 |k!#.(B")|.(defvar|
|000004d0| 20 73 6b 6b 2d 6e 75 6d | 65 72 69 63 2d 63 6f 6e | skk-num|eric-con|
|000004e0| 76 65 72 73 69 6f 6e 2d | 66 6c 6f 61 74 2d 6e 75 |version-|float-nu|
|000004f0| 6d 20 6e 69 6c 20 22 5c | 0a 2a 4e 6f 6e 2d 6e 69 |m nil "\|.*Non-ni|
|00000500| 6c 20 1b 24 28 42 24 47 | 24 22 24 6c 24 50 21 22 |l .$(B$G|$"$l$P!"|
|00000510| 49 62 46 30 3e 2e 3f 74 | 45 40 3f 74 24 72 3b 48 |IbF0>.?t|E@?t$r;H|
|00000520| 24 43 24 3f 38 2b 3d 50 | 24 37 38 6c 24 4b 42 50 |$C$?8+=P|$78l$KBP|
|00000530| 31 7e 24 37 24 46 4a 51 | 34 39 24 72 39 54 24 4a |1~$7$FJQ|49$r9T$J|
|00000540| 24 26 21 23 1b 28 42 0a | 1b 24 28 42 24 33 24 4e |$&!#.(B.|.$(B$3$N|
|00000550| 43 4d 24 72 1b 28 42 20 | 6e 6f 6e 2d 6e 69 6c 20 |CM$r.(B |non-nil |
|00000560| 1b 24 28 42 24 4b 24 39 | 24 6b 24 33 24 48 24 47 |.$(B$K$9|$k$3$H$G|
|00000570| 21 22 1b 28 42 5c 22 23 | 2e 23 20 2f 23 31 1b 24 |!".(B\"#|.# /#1.$|
|00000580| 28 42 21 25 1b 28 42 23 | 31 2f 23 30 1b 24 28 42 |(B!%.(B#|1/#0.$(B|
|00000590| 37 6e 1b 28 42 23 30 1b | 24 28 42 46 7c 1b 28 42 |7n.(B#0.|$(BF|.(B|
|000005a0| 2f 5c 22 20 1b 24 28 42 | 24 4a 24 49 24 4e 3c 2d |/\" .$(B|$J$I$N<-|
|000005b0| 3d 71 38 2b 3d 50 24 37 | 24 2c 3b 48 4d 51 1b 28 |=q8+=P$7|$,;HMQ.(|
|000005c0| 42 0a 1b 24 28 42 24 47 | 24 2d 24 4a 24 2f 24 4a |B..$(B$G|$-$J$/$J|
|000005d0| 24 6b 24 4e 24 47 21 22 | 43 6d 30 55 21 23 1b 28 |$k$N$G!"|Cm0U!#.(|
|000005e0| 42 22 29 0a 28 64 65 66 | 76 61 72 20 73 6b 6b 2d |B").(def|var skk-|
|000005f0| 75 6e 69 71 2d 6e 75 6d | 65 72 61 6c 73 20 28 62 |uniq-num|erals (b|
|00000600| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 b7 ae 88 c2 |yte-code| "......|
|00000610| 09 b7 ad 83 c3 09 b7 87 | 22 20 5b 3f 34 20 73 6b |........|" [?4 sk|
|00000620| 6b 2d 6e 75 6d 2d 74 79 | 70 65 2d 6c 69 73 74 20 |k-num-ty|pe-list |
|00000630| 3f 32 20 3f 33 5d 20 32 | 29 20 22 5c 0a 2a 4e 6f |?2 ?3] 2|) "\.*No|
|00000640| 6e 2d 6e 69 6c 20 1b 24 | 28 42 24 47 24 22 24 6c |n-nil .$|(B$G$"$l|
|00000650| 24 50 21 22 30 5b 24 4a | 24 6b 3f 74 43 4d 49 3d |$P!"0[$J|$k?tCMI=|
|00000660| 38 3d 24 47 24 62 4a 51 | 34 39 37 6b 32 4c 24 2c |8=$G$bJQ|497k2L$,|
|00000670| 46 31 24 38 3f 74 43 4d | 24 72 3d 45 4a 23 24 37 |F1$8?tCM|$r=EJ#$7|
|00000680| 24 46 3d 50 4e 4f 24 37 | 24 4a 24 24 21 23 1b 28 |$F=PNO$7|$J$$!#.(|
|00000690| 42 22 29 0a 28 64 65 66 | 76 61 72 20 73 6b 6b 2d |B").(def|var skk-|
|000006a0| 6e 75 6d 2d 6c 6f 61 64 | 2d 68 6f 6f 6b 20 6e 69 |num-load|-hook ni|
|000006b0| 6c 20 22 5c 0a 2a 73 6b | 6b 2d 6e 75 6d 2e 65 6c |l "\.*sk|k-num.el|
|000006c0| 20 1b 24 28 42 24 72 25 | 6d 21 3c 25 49 24 37 24 | .$(B$r%|m!<%I$7$|
|000006d0| 3f 38 65 24 4b 25 33 21 | 3c 25 6b 24 35 24 6c 24 |?8e$K%3!|<%k$5$l$|
|000006e0| 6b 25 55 25 43 25 2f 21 | 23 1b 28 42 22 29 0a 28 |k%U%C%/!|#.(B").(|
|000006f0| 64 65 66 63 6f 6e 73 74 | 20 73 6b 6b 2d 6e 75 6d |defconst| skk-num|
|00000700| 2d 61 6c 69 73 74 2d 74 | 79 70 65 31 20 27 28 28 |-alist-t|ype1 '((|
|00000710| 3f 30 20 2e 20 22 1b 24 | 28 42 23 30 1b 28 42 22 |?0 . ".$|(B#0.(B"|
|00000720| 29 20 28 3f 31 20 2e 20 | 22 1b 24 28 42 23 31 1b |) (?1 . |".$(B#1.|
|00000730| 28 42 22 29 20 28 3f 32 | 20 2e 20 22 1b 24 28 42 |(B") (?2| . ".$(B|
|00000740| 23 32 1b 28 42 22 29 20 | 28 3f 33 20 2e 20 22 1b |#2.(B") |(?3 . ".|
|00000750| 24 28 42 23 33 1b 28 42 | 22 29 20 28 3f 34 20 2e |$(B#3.(B|") (?4 .|
|00000760| 20 22 1b 24 28 42 23 34 | 1b 28 42 22 29 20 28 3f | ".$(B#4|.(B") (?|
|00000770| 35 20 2e 20 22 1b 24 28 | 42 23 35 1b 28 42 22 29 |5 . ".$(|B#5.(B")|
|00000780| 20 28 3f 36 20 2e 20 22 | 1b 24 28 42 23 36 1b 28 | (?6 . "|.$(B#6.(|
|00000790| 42 22 29 20 28 3f 37 20 | 2e 20 22 1b 24 28 42 23 |B") (?7 |. ".$(B#|
|000007a0| 37 1b 28 42 22 29 20 28 | 3f 38 20 2e 20 22 1b 24 |7.(B") (|?8 . ".$|
|000007b0| 28 42 23 38 1b 28 42 22 | 29 20 28 3f 39 20 2e 20 |(B#8.(B"|) (?9 . |
|000007c0| 22 1b 24 28 42 23 39 1b | 28 42 22 29 20 28 3f 5c |".$(B#9.|(B") (?\|
|000007d0| 2e 20 2e 20 22 1b 24 28 | 42 21 25 1b 28 42 22 29 |. . ".$(|B!%.(B")|
|000007e0| 20 28 3f 5c 20 20 2e 20 | 22 22 29 29 20 22 5c 0a | (?\  . |"")) "\.|
|000007f0| 61 73 63 69 69 20 1b 24 | 28 42 3f 74 3b 7a 24 4e |ascii .$|(B?t;z$N|
|00000800| 1b 28 42 20 63 68 61 72 | 20 74 79 70 65 20 1b 24 |.(B char| type .$|
|00000810| 28 42 24 48 41 34 33 51 | 3f 74 3b 7a 24 4e 1b 28 |(B$HA43Q|?t;z$N.(|
|00000820| 42 20 73 74 72 69 6e 67 | 20 74 79 70 65 20 1b 24 |B string| type .$|
|00000830| 28 42 24 4e 4f 22 41 5b | 25 6a 25 39 25 48 21 23 |(B$NO"A[|%j%9%H!#|
|00000840| 1b 28 42 0a 5c 22 31 39 | 39 35 5c 22 20 2d 3e 20 |.(B.\"19|95\" -> |
|00000850| 5c 22 1b 24 28 42 23 31 | 23 39 23 39 23 35 1b 28 |\".$(B#1|#9#9#5.(|
|00000860| 42 5c 22 20 1b 24 28 42 | 24 4e 24 68 24 26 24 4a |B\" .$(B|$N$h$&$J|
|00000870| 4a 38 3b 7a 4e 73 24 4e | 4a 51 34 39 24 72 39 54 |J8;zNs$N|JQ49$r9T|
|00000880| 24 26 3a 5d 24 4b 4d 78 | 4d 51 24 39 24 6b 21 23 |$&:]$KMx|MQ$9$k!#|
|00000890| 1b 28 42 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |.(B").(d|efconst |
|000008a0| 73 6b 6b 2d 6e 75 6d 2d | 61 6c 69 73 74 2d 74 79 |skk-num-|alist-ty|
|000008b0| 70 65 32 20 27 28 28 3f | 30 20 2e 20 22 1b 24 28 |pe2 '((?|0 . ".$(|
|000008c0| 42 21 3b 1b 28 42 22 29 | 20 28 3f 31 20 2e 20 22 |B!;.(B")| (?1 . "|
|000008d0| 1b 24 28 42 30 6c 1b 28 | 42 22 29 20 28 3f 32 20 |.$(B0l.(|B") (?2 |
|000008e0| 2e 20 22 1b 24 28 42 46 | 73 1b 28 42 22 29 20 28 |. ".$(BF|s.(B") (|
|000008f0| 3f 33 20 2e 20 22 1b 24 | 28 42 3b 30 1b 28 42 22 |?3 . ".$|(B;0.(B"|
|00000900| 29 20 28 3f 34 20 2e 20 | 22 1b 24 28 42 3b 4d 1b |) (?4 . |".$(B;M.|
|00000910| 28 42 22 29 20 28 3f 35 | 20 2e 20 22 1b 24 28 42 |(B") (?5| . ".$(B|
|00000920| 38 5e 1b 28 42 22 29 20 | 28 3f 36 20 2e 20 22 1b |8^.(B") |(?6 . ".|
|00000930| 24 28 42 4f 3b 1b 28 42 | 22 29 20 28 3f 37 20 2e |$(BO;.(B|") (?7 .|
|00000940| 20 22 1b 24 28 42 3c 37 | 1b 28 42 22 29 20 28 3f | ".$(B<7|.(B") (?|
|00000950| 38 20 2e 20 22 1b 24 28 | 42 48 2c 1b 28 42 22 29 |8 . ".$(|BH,.(B")|
|00000960| 20 28 3f 39 20 2e 20 22 | 1b 24 28 42 36 65 1b 28 | (?9 . "|.$(B6e.(|
|00000970| 42 22 29 20 28 3f 5c 20 | 20 2e 20 22 22 29 29 20 |B") (?\ | . "")) |
|00000980| 22 5c 0a 61 73 63 69 69 | 20 1b 24 28 42 3f 74 3b |"\.ascii| .$(B?t;|
|00000990| 7a 24 4e 1b 28 42 20 63 | 68 61 72 20 74 79 70 65 |z$N.(B c|har type|
|000009a0| 20 1b 24 28 42 24 48 34 | 41 3f 74 3b 7a 24 4e 1b | .$(B$H4|A?t;z$N.|
|000009b0| 28 42 20 73 74 72 69 6e | 67 20 74 79 70 65 20 1b |(B strin|g type .|
|000009c0| 24 28 42 24 4e 4f 22 41 | 5b 25 6a 25 39 25 48 21 |$(B$NO"A|[%j%9%H!|
|000009d0| 23 1b 28 42 0a 5c 22 31 | 39 39 35 5c 22 20 2d 3e |#.(B.\"1|995\" ->|
|000009e0| 20 5c 22 1b 24 28 42 30 | 6c 36 65 36 65 38 5e 1b | \".$(B0|l6e6e8^.|
|000009f0| 28 42 5c 22 20 1b 24 28 | 42 24 4e 24 68 24 26 24 |(B\" .$(|B$N$h$&$|
|00000a00| 4a 4a 38 3b 7a 4e 73 24 | 4e 4a 51 34 39 24 72 39 |JJ8;zNs$|NJQ49$r9|
|00000a10| 54 24 26 3a 5d 24 4b 4d | 78 4d 51 24 39 24 6b 21 |T$&:]$KM|xMQ$9$k!|
|00000a20| 23 1b 28 42 22 29 0a 28 | 64 65 66 76 61 72 20 73 |#.(B").(|defvar s|
|00000a30| 6b 6b 2d 6e 75 6d 2d 6c | 69 73 74 20 6e 69 6c 20 |kk-num-l|ist nil |
|00000a40| 22 5c 0a 73 6b 6b 2d 68 | 65 6e 6b 61 6e 2d 6b 65 |"\.skk-h|enkan-ke|
|00000a50| 79 20 1b 24 28 42 24 4e | 43 66 24 4b 34 5e 24 5e |y .$(B$N|Cf$K4^$^|
|00000a60| 24 6c 24 6b 3f 74 3b 7a | 24 72 49 3d 24 39 4a 38 |$l$k?t;z|$rI=$9J8|
|00000a70| 3b 7a 4e 73 24 4e 25 6a | 25 39 25 48 21 23 1b 28 |;zNs$N%j|%9%H!#.(|
|00000a80| 42 0a 1b 24 28 42 4e 63 | 24 28 24 50 21 22 1b 28 |B..$(BNc|$($P!".(|
|00000a90| 42 5c 22 1b 24 28 42 22 | 26 24 58 24 24 24 3b 24 |B\".$(B"|&$X$$$;$|
|00000aa0| 24 1b 28 42 37 1b 24 28 | 42 24 4d 24 73 1b 28 42 |$.(B7.$(|B$M$s.(B|
|00000ab0| 31 30 1b 24 28 42 24 2c | 24 44 1b 28 42 5c 22 20 |10.$(B$,|$D.(B\" |
|00000ac0| 1b 24 28 42 24 4e 4a 51 | 34 39 24 72 39 54 24 26 |.$(B$NJQ|49$r9T$&|
|00000ad0| 24 48 24 2d 21 22 1b 28 | 42 73 6b 6b 2d 68 65 6e |$H$-!".(|Bskk-hen|
|00000ae0| 6b 61 6e 2d 6b 65 79 20 | 1b 24 28 42 24 4f 1b 28 |kan-key |.$(B$O.(|
|00000af0| 42 0a 5c 22 1b 24 28 42 | 24 58 24 24 24 3b 24 24 |B.\".$(B|$X$$$;$$|
|00000b00| 1b 28 42 37 1b 24 28 42 | 24 4d 24 73 1b 28 42 31 |.(B7.$(B|$M$s.(B1|
|00000b10| 30 1b 24 28 42 24 2c 24 | 44 1b 28 42 5c 22 20 1b |0.$(B$,$|D.(B\" .|
|00000b20| 24 28 42 24 47 24 22 24 | 6a 21 22 1b 28 42 73 6b |$(B$G$"$|j!".(Bsk|
|00000b30| 6b 2d 6e 75 6d 2d 6c 69 | 73 74 20 1b 24 28 42 24 |k-num-li|st .$(B$|
|00000b40| 4f 1b 28 42 20 28 5c 22 | 37 5c 22 20 5c 22 31 30 |O.(B (\"|7\" \"10|
|00000b50| 5c 22 29 20 1b 24 28 42 | 24 48 24 4a 24 6b 21 23 |\") .$(B|$H$J$k!#|
|00000b60| 1b 28 42 0a 28 62 75 66 | 66 65 72 20 6c 6f 63 61 |.(B.(buf|fer loca|
|00000b70| 6c 29 22 29 0a 28 6d 61 | 6b 65 2d 76 61 72 69 61 |l)").(ma|ke-varia|
|00000b80| 62 6c 65 2d 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |ble-buff|er-local|
|00000b90| 20 27 73 6b 6b 2d 6e 75 | 6d 2d 6c 69 73 74 29 0a | 'skk-nu|m-list).|
|00000ba0| 28 64 65 66 76 61 72 20 | 73 6b 6b 2d 72 65 63 6f |(defvar |skk-reco|
|00000bb0| 6d 70 75 74 65 2d 6e 75 | 6d 65 72 61 6c 73 2d 6b |mpute-nu|merals-k|
|00000bc0| 65 79 20 6e 69 6c 20 22 | 5c 0a 23 34 20 1b 24 28 |ey nil "|\.#4 .$(|
|00000bd0| 42 25 3f 25 24 25 57 24 | 4e 25 2d 21 3c 24 4b 24 |B%?%$%W$|N%-!<$K$|
|00000be0| 68 24 6a 3f 74 43 4d 24 | 4e 3a 46 37 57 3b 3b 24 |h$j?tCM$|N:F7W;;$|
|00000bf0| 72 39 54 24 4a 24 43 24 | 3f 24 48 24 2d 24 4e 38 |r9T$J$C$|?$H$-$N8|
|00000c00| 21 3a 77 25 2d 21 3c 21 | 23 1b 28 42 0a 28 62 75 |!:w%-!<!|#.(B.(bu|
|00000c10| 66 66 65 72 20 6c 6f 63 | 61 6c 29 22 29 0a 28 6d |ffer loc|al)").(m|
|00000c20| 61 6b 65 2d 76 61 72 69 | 61 62 6c 65 2d 62 75 66 |ake-vari|able-buf|
|00000c30| 66 65 72 2d 6c 6f 63 61 | 6c 20 27 73 6b 6b 2d 72 |fer-loca|l 'skk-r|
|00000c40| 65 63 6f 6d 70 75 74 65 | 2d 6e 75 6d 65 72 61 6c |ecompute|-numeral|
|00000c50| 73 2d 6b 65 79 29 0a 28 | 64 65 66 61 6c 69 61 73 |s-key).(|defalias|
|00000c60| 20 27 73 6b 6b 2d 63 6f | 6d 70 75 74 65 2d 6e 75 | 'skk-co|mpute-nu|
|00000c70| 6d 65 72 69 63 2d 68 65 | 6e 6b 61 6e 2d 6b 65 79 |meric-he|nkan-key|
|00000c80| 20 23 5b 28 6b 65 79 29 | 20 22 08 ab 83 c1 aa 81 | #[(key)| "......|
|00000c90| c2 c3 1c 1d c6 20 1e 07 | c8 8e c9 ca 1b 0e 0b 5c |..... ..|.......\|
|00000ca0| 22 ab 9d cc cd 1b 0e 0b | 5c 22 1e 1b 0e 1b 0e 0b |".......|\"......|
|00000cb0| cd 89 94 4f cf 1b 0e 1b | 0e 21 1b 0e 0b cd 95 d0 |...O....|.!......|
|00000cc0| 4f 51 16 0b 29 aa 5c 5c | c9 0d 1b 0e 0b 5c 22 ab |OQ..).\\|.....\".|
|00000cd0| 9d 1b 0e 11 cc cd 1b 0e | 0b 5c 22 43 a4 16 11 1b |........|.\"C....|
|00000ce0| 0e 0b cd 89 94 4f d2 1b | 0e 0b cd 95 d0 4f 51 16 |.....O..|.....OQ.|
|00000cf0| 0b aa 5c 5c 2c 1b 0e 0b | 87 22 20 5b 73 6b 6b 2d |..\\,...|." [skk-|
|00000d00| 6e 75 6d 65 72 69 63 2d | 63 6f 6e 76 65 72 73 69 |numeric-|conversi|
|00000d10| 6f 6e 2d 66 6c 6f 61 74 | 2d 6e 75 6d 20 22 5b 2e |on-float|-num "[.|
|00000d20| 30 2d 39 5d 2b 22 20 22 | 5b 30 2d 39 5d 2b 22 20 |0-9]+" "|[0-9]+" |
|00000d30| 74 20 65 6e 61 62 6c 65 | 2d 6d 75 6c 74 69 62 79 |t enable|-multiby|
|00000d40| 74 65 2d 63 68 61 72 61 | 63 74 65 72 73 20 6e 75 |te-chara|cters nu|
|00000d50| 6d 62 65 72 72 65 70 20 | 6d 61 74 63 68 2d 64 61 |mberrep |match-da|
|00000d60| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 20 28 28 |ta match|-data ((|
|00000d70| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|00000d80| 20 6d 61 74 63 68 2d 64 | 61 74 61 29 29 20 73 74 | match-d|ata)) st|
|00000d90| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 1b 24 28 |ring-mat|ch "[.$(|
|00000da0| 42 23 30 1b 28 42 2d 1b | 24 28 42 23 39 1b 28 42 |B#0.(B-.|$(B#9.(B|
|00000db0| 5d 22 20 6b 65 79 20 6d | 61 74 63 68 2d 73 74 72 |]" key m|atch-str|
|00000dc0| 69 6e 67 20 30 20 7a 65 | 6e 2d 6e 75 6d 20 73 6b |ing 0 ze|n-num sk|
|00000dd0| 6b 2d 6a 69 73 78 30 32 | 30 38 2d 74 6f 2d 61 73 |k-jisx02|08-to-as|
|00000de0| 63 69 69 20 6e 69 6c 20 | 73 6b 6b 2d 6e 75 6d 2d |cii nil |skk-num-|
|00000df0| 6c 69 73 74 20 22 23 22 | 5d 20 35 5d 29 0a 28 64 |list "#"|] 5]).(d|
|00000e00| 65 66 61 6c 69 61 73 20 | 27 73 6b 6b 2d 6e 75 6d |efalias |'skk-num|
|00000e10| 65 72 69 63 2d 63 6f 6e | 76 65 72 74 20 23 5b 28 |eric-con|vert #[(|
|00000e20| 6b 65 79 29 20 22 08 85 | 13 01 09 ab 83 c2 aa 81 |key) "..|........|
|00000e30| c3 c4 08 c5 89 89 89 89 | 1e 06 1e 07 1e 08 1e 09 |........|........|
|00000e40| 1e 5c 6e 1e 0b 1e 0c 1e | 0d ce 20 1e 1b 0f d0 8e |.\n.....|.. .....|
|00000e50| 1b 0e 0c 1b 0e 11 38 89 | 16 5c 6e ab ca d2 1b 0e |......8.|.\n.....|
|00000e60| 0d 1b 0e 0b 5c 22 ab c2 | d3 1b 0e 5c 6e d4 1b 0e |....\"..|...\n...|
|00000e70| 0b c4 94 54 c4 95 4f 21 | 5c 22 16 09 1b 0e 0b c4 |...T..O!|\"......|
|00000e80| 89 94 4f 16 08 1b 0e 0b | c4 95 c5 4f 16 0b 1b 0e |..O.....|...O....|
|00000e90| 0c 54 16 0c 1b 0e 09 3b | ab 8c 1b 0e 09 d5 98 ab |.T.....;|........|
|00000ea0| 86 1b 0e 08 d5 98 ac 38 | 1b 0e 07 1b 0e 08 1b 0e |.......8|........|
|00000eb0| 09 44 a4 16 07 aa 2c 1b | 0e 07 1b 0e 0b 43 a4 89 |.D....,.|.....C..|
|00000ec0| 16 07 83 1b 0f 01 1b 0e | 07 41 ac 8d 1b 0e 07 40 |........|.A.....@|
|00000ed0| 3b ab 87 1b 0e 07 40 16 | 06 aa f5 d6 d7 d8 1b 0e |;.....@.|........|
|00000ee0| 07 5c 22 73 ac ae d9 da | 1b 0e 07 d5 23 16 06 1b |.\"s....|....#...|
|00000ef0| 0e 1b 1b dc 56 ab 94 1b | 0e 1b 1b 1b 0e 1d 38 ab |....V...|......8.|
|00000f00| 8d 1b 0e 1b 1b 1b 0e 1d | 9b 08 1b 0e 06 42 a0 88 |........|.....B..|
|00000f10| aa ca 1b 0e 1d 08 1b 0e | 06 42 43 a4 16 1d aa be |........|.BC.....|
|00000f20| d7 de df e0 d5 1b 0e 07 | 5c 22 21 5c 22 89 1e 21 |........|\"!\"..!|
|00000f30| 40 41 16 06 1b 0e 1b 1b | dc 56 ab 9f 1b 0e 1b 1b |@A......|.V......|
|00000f40| 1b 0e 1d 38 ab 98 1b 0e | 1b 1b 1b 0e 1d 9b 1b 0e |...8....|........|
|00000f50| 21 40 a0 88 e2 1b 0e 1d | 1b 0e 1b 1b 54 1b 0e 21 |!@......|....T..!|
|00000f60| 41 23 16 1d aa 87 1b 0e | 1d 1b 0e 21 a4 16 1d 29 |A#......|...!...)|
|00000f70| 1b 0e 06 2e 5c 6e 87 22 | 20 5b 6b 65 79 20 73 6b |....\n."| [key sk|
|00000f80| 6b 2d 6e 75 6d 65 72 69 | 63 2d 63 6f 6e 76 65 72 |k-numeri|c-conver|
|00000f90| 73 69 6f 6e 2d 66 6c 6f | 61 74 2d 6e 75 6d 20 22 |sion-flo|at-num "|
|00000fa0| 23 5b 2e 30 2d 39 5d 2b | 22 20 22 23 5b 30 2d 39 |#[.0-9]+|" "#[0-9|
|00000fb0| 5d 2b 22 20 30 20 6e 69 | 6c 20 63 75 72 72 65 6e |]+" 0 ni|l curren|
|00000fc0| 74 20 63 6f 6e 76 6c 69 | 73 74 20 73 74 72 69 6e |t convli|st strin|
|00000fd0| 67 20 63 6f 6e 76 6e 75 | 6d 20 6e 75 6d 20 77 6f |g convnu|m num wo|
|00000fe0| 72 6b 6b 65 79 20 6e 20 | 6e 75 6d 65 78 70 20 6d |rkkey n |numexp m|
|00000ff0| 61 74 63 68 2d 64 61 74 | 61 20 6d 61 74 63 68 2d |atch-dat|a match-|
|00001000| 64 61 74 61 20 28 28 73 | 74 6f 72 65 2d 6d 61 74 |data ((s|tore-mat|
|00001010| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|00001020| 74 61 29 29 20 73 6b 6b | 2d 6e 75 6d 2d 6c 69 73 |ta)) skk|-num-lis|
|00001030| 74 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 73 |t string|-match s|
|00001040| 6b 6b 2d 6e 75 6d 2d 65 | 78 70 20 73 74 72 69 6e |kk-num-e|xp strin|
|00001050| 67 2d 74 6f 2d 63 68 61 | 72 20 22 22 20 74 20 6d |g-to-cha|r "" t m|
|00001060| 61 70 63 61 72 20 6c 69 | 73 74 70 20 6d 61 70 63 |apcar li|stp mapc|
|00001070| 6f 6e 63 61 74 20 69 64 | 65 6e 74 69 74 79 20 73 |oncat id|entity s|
|00001080| 6b 6b 2d 68 65 6e 6b 61 | 6e 2d 63 6f 75 6e 74 20 |kk-henka|n-count |
|00001090| 2d 31 20 73 6b 6b 2d 68 | 65 6e 6b 61 6e 2d 6c 69 |-1 skk-h|enkan-li|
|000010a0| 73 74 20 23 5b 28 65 29 | 20 22 08 09 42 87 22 20 |st #[(e)| "..B." |
|000010b0| 5b 6b 65 79 20 65 5d 20 | 32 5d 20 73 6b 6b 2d 66 |[key e] |2] skk-f|
|000010c0| 6c 61 74 74 65 6e 2d 6c | 69 73 74 20 64 65 6c 65 |latten-l|ist dele|
|000010d0| 74 65 20 6c 20 73 6b 6b | 2d 6d 69 64 64 6c 65 2d |te l skk|-middle-|
|000010e0| 6c 69 73 74 5d 20 39 5d | 29 0a 28 64 65 66 61 6c |list] 9]|).(defal|
|000010f0| 69 61 73 20 27 73 6b 6b | 2d 6e 75 6d 65 72 69 63 |ias 'skk|-numeric|
|00001100| 2d 63 6f 6e 76 65 72 74 | 2a 37 20 23 5b 6e 69 6c |-convert|*7 #[nil|
|00001110| 20 22 08 c1 1a 18 5c 6e | c3 56 ab 93 08 0c 38 ab | "....\n|.V....8.|
|00001120| 8e c5 c6 20 21 88 08 54 | 10 5c 6e 53 89 12 aa 69 |... !..T|.\nS...i|
|00001130| 1b 0e 07 ad 82 c8 20 2a | 87 22 20 5b 73 6b 6b 2d |...... *|." [skk-|
|00001140| 68 65 6e 6b 61 6e 2d 63 | 6f 75 6e 74 20 37 20 6e |henkan-c|ount 7 n|
|00001150| 20 30 20 73 6b 6b 2d 68 | 65 6e 6b 61 6e 2d 6c 69 | 0 skk-h|enkan-li|
|00001160| 73 74 20 73 6b 6b 2d 6e | 75 6d 65 72 69 63 2d 63 |st skk-n|umeric-c|
|00001170| 6f 6e 76 65 72 74 20 73 | 6b 6b 2d 67 65 74 2d 63 |onvert s|kk-get-c|
|00001180| 75 72 72 65 6e 74 2d 63 | 61 6e 64 69 64 61 74 65 |urrent-c|andidate|
|00001190| 20 73 6b 6b 2d 72 65 63 | 6f 6d 70 75 74 65 2d 6e | skk-rec|ompute-n|
|000011a0| 75 6d 65 72 61 6c 73 2d | 6b 65 79 20 73 6b 6b 2d |umerals-|key skk-|
|000011b0| 75 6e 69 71 2d 6e 75 6d | 65 72 61 6c 73 5d 20 33 |uniq-num|erals] 3|
|000011c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 6b |]).(defa|lias 'sk|
|000011d0| 6b 2d 72 61 77 2d 6e 75 | 6d 62 65 72 2d 74 6f 2d |k-raw-nu|mber-to-|
|000011e0| 73 6b 6b 2d 72 65 70 20 | 23 5b 28 73 74 72 69 6e |skk-rep |#[(strin|
|000011f0| 67 29 20 22 c0 09 c2 c3 | c4 24 11 c0 09 c5 c6 c7 |g) "....|.$......|
|00001200| 24 11 c0 09 c8 c9 c4 24 | 11 c0 09 ca cb c4 24 11 |$......$|......$.|
|00001210| c0 09 cc cd c4 24 87 22 | 20 5b 73 6b 6b 2d 72 61 |.....$."| [skk-ra|
|00001220| 77 2d 6e 75 6d 62 65 72 | 2d 74 6f 2d 73 6b 6b 2d |w-number|-to-skk-|
|00001230| 72 65 70 2d 31 20 73 74 | 72 69 6e 67 20 22 5b 1b |rep-1 st|ring "[.|
|00001240| 24 28 42 23 30 1b 28 42 | 2d 1b 24 28 42 23 39 1b |$(B#0.(B|-.$(B#9.|
|00001250| 28 42 5d 5b 1b 24 28 42 | 30 6c 36 65 38 5e 3b 30 |(B][.$(B|0l6e8^;0|
|00001260| 3b 4d 3c 37 46 73 48 2c | 4f 3b 1b 28 42 5d 22 20 |;M<7FsH,|O;.(B]" |
|00001270| 22 23 39 22 20 30 20 22 | 5c 5c 28 5e 5c 5c 7c 5b |"#9" 0 "|\\(^\\|[|
|00001280| 5e 23 30 2d 39 5d 5c 5c | 29 5c 5c 28 5b 30 2d 39 |^#0-9]\\|)\\([0-9|
|00001290| 5d 2b 5c 5c 29 22 20 22 | 23 30 22 20 32 20 22 5b |]+\\)" "|#0" 2 "[|
|000012a0| 1b 24 28 42 23 30 1b 28 | 42 2d 1b 24 28 42 23 39 |.$(B#0.(|B-.$(B#9|
|000012b0| 1b 28 42 5d 2b 22 20 22 | 23 31 22 20 22 5c 5c 28 |.(B]+" "|#1" "\\(|
|000012c0| 5b 1b 24 28 42 30 6c 36 | 65 38 5e 3b 30 3b 4d 3c |[.$(B0l6|e8^;0;M<|
|000012d0| 37 46 73 48 2c 4f 3b 3d | 3d 1b 28 42 5d 5b 1b 24 |7FsH,O;=|=.(B][.$|
|000012e0| 28 42 3d 3d 49 34 40 69 | 4b 7c 32 2f 43 7b 35 7e |(B==I4@i|K|2/C{5~|
|000012f0| 1b 28 42 5d 5c 5c 29 2b | 22 20 22 23 33 22 20 22 |.(B]\\)+|" "#3" "|
|00001300| 5b 1b 24 28 42 21 3b 30 | 6c 36 65 38 5e 3b 30 3b |[.$(B!;0|l6e8^;0;|
|00001310| 4d 3c 37 46 73 48 2c 4f | 3b 1b 28 42 5d 2b 22 20 |M<7FsH,O|;.(B]+" |
|00001320| 22 23 32 22 5d 20 35 5d | 29 0a 28 64 65 66 61 6c |"#2"] 5]|).(defal|
|00001330| 69 61 73 20 27 73 6b 6b | 2d 72 61 77 2d 6e 75 6d |ias 'skk|-raw-num|
|00001340| 62 65 72 2d 74 6f 2d 73 | 6b 6b 2d 72 65 70 2d 31 |ber-to-s|kk-rep-1|
|00001350| 20 23 5b 28 73 74 72 69 | 6e 67 20 6b 65 79 20 74 | #[(stri|ng key t|
|00001360| 79 70 65 20 70 6c 61 63 | 65 29 20 22 c0 19 c2 20 |ype plac|e) "... |
|00001370| 1b 1b c4 8e c5 1b 0e 06 | 1b 0e 07 5c 22 ab 95 1b |........|...\"...|
|00001380| 0e 07 c8 1b 0e 09 94 4f | 1b 0e 5c 6e 1b 0e 07 1b |.......O|..\n....|
|00001390| 0e 09 95 cb 4f 51 16 07 | aa 63 1b 0e 07 2b 87 22 |....OQ..|.c...+."|
|000013a0| 20 5b 74 20 65 6e 61 62 | 6c 65 2d 6d 75 6c 74 69 | [t enab|le-multi|
|000013b0| 62 79 74 65 2d 63 68 61 | 72 61 63 74 65 72 73 20 |byte-cha|racters |
|000013c0| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|000013d0| 2d 64 61 74 61 20 28 28 | 73 74 6f 72 65 2d 6d 61 |-data ((|store-ma|
|000013e0| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|000013f0| 61 74 61 29 29 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ata)) st|ring-mat|
|00001400| 63 68 20 6b 65 79 20 73 | 74 72 69 6e 67 20 30 20 |ch key s|tring 0 |
|00001410| 70 6c 61 63 65 20 74 79 | 70 65 20 6e 69 6c 5d 20 |place ty|pe nil] |
|00001420| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |5]).(def|alias 's|
|00001430| 6b 6b 2d 66 6c 61 74 74 | 65 6e 2d 6c 69 73 74 20 |kk-flatt|en-list |
|00001440| 23 5b 28 6c 69 73 74 29 | 20 22 08 40 3a ac 85 08 |#[(list)| ".@:...|
|00001450| 40 43 aa 82 08 40 08 41 | 19 1a 09 ab 8a c3 c4 5c |@C...@.A|.......\|
|00001460| 6e 5c 22 09 41 11 12 aa | 73 5c 6e 2a 87 22 20 5b |n\".A...|s\n*." [|
|00001470| 6c 69 73 74 20 74 61 69 | 6c 20 72 65 73 75 6c 74 |list tai|l result|
|00001480| 20 6d 61 70 63 61 6e 20 | 23 5b 28 61 29 20 22 c0 | mapcan |#[(a) ".|
|00001490| c1 5c 6e 40 3a ac 85 5c | 6e 40 43 aa 82 5c 6e 40 |.\n@:..\|n@C..\n@|
|000014a0| 5c 22 87 22 20 5b 6d 61 | 70 63 61 72 20 23 5b 28 |\"." [ma|pcar #[(|
|000014b0| 62 29 20 22 08 09 50 87 | 22 20 5b 61 20 62 5d 20 |b) "..P.|" [a b] |
|000014c0| 32 5d 20 74 61 69 6c 5d | 20 33 5d 5d 20 33 5d 29 |2] tail]| 3]] 3])|
|000014d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6b 6b 2d |.(defali|as 'skk-|
|000014e0| 6e 75 6d 2d 65 78 70 20 | 23 5b 28 6e 75 6d 20 74 |num-exp |#[(num t|
|000014f0| 79 70 65 29 20 22 08 09 | b7 41 89 1a ad 83 5c 6e |ype) "..|.A....\n|
|00001500| 0b 21 29 87 22 20 5b 74 | 79 70 65 20 73 6b 6b 2d |.!)." [t|ype skk-|
|00001510| 6e 75 6d 2d 74 79 70 65 | 2d 6c 69 73 74 20 66 75 |num-type|-list fu|
|00001520| 6e 20 6e 75 6d 5d 20 33 | 5d 29 0a 28 64 65 66 61 |n num] 3|]).(defa|
|00001530| 6c 69 61 73 20 27 73 6b | 6b 2d 7a 65 6e 6b 61 6b |lias 'sk|k-zenkak|
|00001540| 75 2d 6e 75 6d 2d 73 74 | 72 20 23 5b 28 6e 75 6d |u-num-st|r #[(num|
|00001550| 29 20 22 c0 c1 5c 6e c3 | 23 89 1c c3 98 3f ad 81 |) "..\n.|#....?..|
|00001560| 0c 29 87 22 20 5b 6d 61 | 70 63 6f 6e 63 61 74 20 |.)." [ma|pconcat |
|00001570| 23 5b 28 63 29 20 22 08 | 09 b7 41 87 22 20 5b 63 |#[(c) ".|..A." [c|
|00001580| 20 73 6b 6b 2d 6e 75 6d | 2d 61 6c 69 73 74 2d 74 | skk-num|-alist-t|
|00001590| 79 70 65 31 5d 20 32 5d | 20 6e 75 6d 20 22 22 20 |ype1] 2]| num "" |
|000015a0| 63 61 6e 64 69 64 61 74 | 65 5d 20 35 5d 29 0a 28 |candidat|e] 5]).(|
|000015b0| 64 65 66 61 6c 69 61 73 | 20 27 73 6b 6b 2d 6b 61 |defalias| 'skk-ka|
|000015c0| 6e 6a 69 2d 6e 75 6d 2d | 73 74 72 20 23 5b 28 6e |nji-num-|str #[(n|
|000015d0| 75 6d 29 20 22 c0 20 19 | c2 8e c3 c4 0d 5c 22 3f |um) ". .|.....\"?|
|000015e0| ad 90 c6 c7 0d c8 23 89 | 1e 09 c8 98 3f ad 82 1b |......#.|....?...|
|000015f0| 0e 09 29 2a 87 22 20 5b | 6d 61 74 63 68 2d 64 61 |..)*." [|match-da|
|00001600| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 20 28 28 |ta match|-data ((|
|00001610| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|00001620| 20 6d 61 74 63 68 2d 64 | 61 74 61 29 29 20 73 74 | match-d|ata)) st|
|00001630| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 2e 5b |ring-mat|ch "\\.[|
|00001640| 30 2d 39 5d 22 20 6e 75 | 6d 20 6d 61 70 63 6f 6e |0-9]" nu|m mapcon|
|00001650| 63 61 74 20 23 5b 28 63 | 29 20 22 08 09 b7 41 87 |cat #[(c|) "...A.|
|00001660| 22 20 5b 63 20 73 6b 6b | 2d 6e 75 6d 2d 61 6c 69 |" [c skk|-num-ali|
|00001670| 73 74 2d 74 79 70 65 32 | 5d 20 32 5d 20 22 22 20 |st-type2|] 2] "" |
|00001680| 63 61 6e 64 69 64 61 74 | 65 5d 20 35 5d 29 0a 28 |candidat|e] 5]).(|
|00001690| 64 65 66 61 6c 69 61 73 | 20 27 73 6b 6b 2d 6b 61 |defalias| 'skk-ka|
|000016a0| 6e 6a 69 2d 6e 75 6d 2d | 73 74 72 32 20 23 5b 28 |nji-num-|str2 #[(|
|000016b0| 6e 75 6d 29 20 22 c0 20 | 19 c2 8e c3 c4 0d 5c 22 |num) ". |......\"|
|000016c0| 3f ad 90 c6 0d 21 89 1e | 07 c8 98 ab 83 c9 aa 82 |?....!..|........|
|000016d0| 1b 0e 07 29 2a 87 22 20 | 5b 6d 61 74 63 68 2d 64 |...)*." |[match-d|
|000016e0| 61 74 61 20 6d 61 74 63 | 68 2d 64 61 74 61 20 28 |ata matc|h-data (|
|000016f0| 28 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 |(store-m|atch-dat|
|00001700| 61 20 6d 61 74 63 68 2d | 64 61 74 61 29 29 20 73 |a match-|data)) s|
|00001710| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 2e |tring-ma|tch "\\.|
|00001720| 5b 30 2d 39 5d 22 20 6e | 75 6d 20 73 6b 6b 2d 6b |[0-9]" n|um skk-k|
|00001730| 61 6e 6a 69 2d 6e 75 6d | 2d 73 74 72 32 2d 73 75 |anji-num|-str2-su|
|00001740| 62 72 20 73 74 72 20 22 | 22 20 22 1b 24 28 42 21 |br str "|" ".$(B!|
|00001750| 3b 1b 28 42 22 5d 20 34 | 5d 29 0a 28 64 65 66 61 |;.(B"] 4|]).(defa|
|00001760| 6c 69 61 73 20 27 73 6b | 6b 2d 6b 61 6e 6a 69 2d |lias 'sk|k-kanji-|
|00001770| 6e 75 6d 2d 73 74 72 32 | 2d 73 75 62 72 20 23 5b |num-str2|-subr #[|
|00001780| 28 6e 75 6d 29 20 22 08 | 47 c1 89 1a 1b 1b 1c c5 |(num) ".|G.......|
|00001790| c6 08 c7 23 2b 87 22 20 | 5b 6e 75 6d 20 6e 69 6c |...#+." |[num nil|
|000017a0| 20 6d 6f 64 75 6c 6f 20 | 70 72 65 76 63 68 61 72 | modulo |prevchar|
|000017b0| 20 6c 65 6e 20 6d 61 70 | 63 6f 6e 63 61 74 20 23 | len map|concat #|
|000017c0| 5b 28 63 68 61 72 29 20 | 22 c0 09 c2 5c 22 13 09 |[(char) |"...\"..|
|000017d0| c4 61 ab 8d 0d c6 61 3f | ad cc 0d 1b 0e 07 b7 41 |.a....a?|.......A|
|000017e0| aa c5 0d c8 73 ab 8a 0d | c9 61 ad 8a 0b c4 61 ad |....s...|.a....a.|
|000017f0| 85 0d 1b 0e 07 b7 41 1b | 0e 5c 6e c6 61 3f ad a9 |......A.|.\n.a?..|
|00001800| 0d c6 61 ad 84 0b c4 61 | 3f 3f ad 9d 0b cb b7 41 |..a....a|??.....A|
|00001810| ae 97 09 cc b7 41 ae 91 | cd 89 1e 1b 0e 1e 1b 0f |.....A..|........|
|00001820| d0 1b 0e 11 ab 83 d2 aa | 81 d3 21 2a 50 09 53 11 |........|..!*P.S.|
|00001830| 0d 16 5c 6e 87 22 20 5b | 6d 6f 64 20 6c 65 6e 20 |..\n." [|mod len |
|00001840| 34 20 6d 6f 64 75 6c 6f | 20 31 20 63 68 61 72 20 |4 modulo| 1 char |
|00001850| 3f 30 20 73 6b 6b 2d 6e | 75 6d 2d 61 6c 69 73 74 |?0 skk-n|um-alist|
|00001860| 2d 74 79 70 65 32 20 28 | 3f 30 20 3f 31 29 20 3f |-type2 (|?0 ?1) ?|
|00001870| 31 20 70 72 65 76 63 68 | 61 72 20 28 28 32 20 2e |1 prevch|ar ((2 .|
|00001880| 20 22 1b 24 28 42 3d 3d | 1b 28 42 22 29 20 28 33 | ".$(B==|.(B") (3|
|00001890| 20 2e 20 22 1b 24 28 42 | 49 34 1b 28 42 22 29 20 | . ".$(B|I4.(B") |
|000018a0| 28 30 20 2e 20 22 1b 24 | 28 42 40 69 1b 28 42 22 |(0 . ".$|(B@i.(B"|
|000018b0| 29 29 20 28 28 35 20 2e | 20 22 1b 24 28 42 4b 7c |)) ((5 .| ".$(BK||
|000018c0| 1b 28 42 22 29 20 28 39 | 20 2e 20 22 1b 24 28 42 |.(B") (9| . ".$(B|
|000018d0| 32 2f 1b 28 42 22 29 20 | 28 31 33 20 2e 20 22 1b |2/.(B") |(13 . ".|
|000018e0| 24 28 42 43 7b 1b 28 42 | 22 29 20 28 31 37 20 2e |$(BC{.(B|") (17 .|
|000018f0| 20 22 1b 24 28 42 35 7e | 1b 28 42 22 29 29 20 74 | ".$(B5~|.(B")) t|
|00001900| 20 65 6e 61 62 6c 65 2d | 6d 75 6c 74 69 62 79 74 | enable-|multibyt|
|00001910| 65 2d 63 68 61 72 61 63 | 74 65 72 73 20 6d 63 2d |e-charac|ters mc-|
|00001920| 66 6c 61 67 20 65 72 72 | 6f 72 20 73 6b 6b 2d 6a |flag err|or skk-j|
|00001930| 61 70 61 6e 65 73 65 2d | 6d 65 73 73 61 67 65 2d |apanese-|message-|
|00001940| 61 6e 64 2d 65 72 72 6f | 72 20 22 1b 24 28 42 37 |and-erro|r ".$(B7|
|00001950| 65 24 2c 42 67 24 2d 24 | 39 24 2e 24 5e 24 39 21 |e$,Bg$-$|9$.$^$9!|
|00001960| 2a 1b 28 42 22 20 22 54 | 6f 6f 20 62 69 67 20 6e |*.(B" "T|oo big n|
|00001970| 75 6d 62 65 72 21 22 5d | 20 33 5d 20 22 22 5d 20 |umber!"]| 3] ""] |
|00001980| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |4]).(def|alias 's|
|00001990| 6b 6b 2d 73 68 6f 67 69 | 2d 6e 75 6d 2d 73 74 72 |kk-shogi|-num-str|
|000019a0| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 19 c2 8e 0b | #[(num)| ". ....|
|000019b0| 47 c4 61 ad a1 c5 c6 0b | 5c 22 3f ad 9a 0b c7 48 |G.a.....|\"?....H|
|000019c0| 1b 0e 08 b7 41 0b c9 48 | 1b 0e 5c 6e b7 41 50 89 |....A..H|..\n.AP.|
|000019d0| 1e 0b cc 98 3f ad 82 1b | 0e 0b 29 2a 87 22 20 5b |....?...|..)*." [|
|000019e0| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|000019f0| 2d 64 61 74 61 20 28 28 | 73 74 6f 72 65 2d 6d 61 |-data ((|store-ma|
|00001a00| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|00001a10| 61 74 61 29 29 20 6e 75 | 6d 20 32 20 73 74 72 69 |ata)) nu|m 2 stri|
|00001a20| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 2e 5b 30 2d |ng-match| "\\.[0-|
|00001a30| 39 5d 22 20 30 20 73 6b | 6b 2d 6e 75 6d 2d 61 6c |9]" 0 sk|k-num-al|
|00001a40| 69 73 74 2d 74 79 70 65 | 31 20 31 20 73 6b 6b 2d |ist-type|1 1 skk-|
|00001a50| 6e 75 6d 2d 61 6c 69 73 | 74 2d 74 79 70 65 32 20 |num-alis|t-type2 |
|00001a60| 63 61 6e 64 69 64 61 74 | 65 20 22 22 5d 20 34 5d |candidat|e ""] 4]|
|00001a70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6b 6b |).(defal|ias 'skk|
|00001a80| 2d 72 65 63 6f 6d 70 75 | 74 65 2d 6e 75 6d 65 72 |-recompu|te-numer|
|00001a90| 61 6c 73 20 23 5b 28 6e | 75 6d 29 20 22 c0 19 8a |als #[(n|um) "...|
|00001aa0| c2 c3 21 71 88 0c 0d c0 | 89 89 1e 06 1e 07 1e 08 |..!q....|........|
|00001ab0| 1e 09 1e 5c 6e 1b 0e 5c | 6e ab 88 cb 09 cc 20 5c |...\n..\|n..... \|
|00001ac0| 22 11 aa 74 2e 06 0d 16 | 0d 09 ab 8b 09 41 ac 84 |"..t....|.....A..|
|00001ad0| 09 40 aa 84 09 aa 81 0d | 29 87 22 20 5b 6e 69 6c |.@......|)." [nil|
|00001ae0| 20 72 65 73 75 6c 74 20 | 67 65 74 2d 62 75 66 66 | result |get-buff|
|00001af0| 65 72 2d 63 72 65 61 74 | 65 20 22 20 2a 73 6b 6b |er-creat|e " *skk|
|00001b00| 2d 77 6f 72 6b 2a 22 20 | 73 6b 6b 2d 73 65 61 72 |-work*" |skk-sear|
|00001b10| 63 68 2d 70 72 6f 67 2d | 6c 69 73 74 20 6e 75 6d |ch-prog-|list num|
|00001b20| 20 73 6b 6b 2d 75 73 65 | 2d 6e 75 6d 65 72 69 63 | skk-use|-numeric|
|00001b30| 2d 63 6f 6e 76 65 72 73 | 69 6f 6e 20 73 6b 6b 2d |-convers|ion skk-|
|00001b40| 6f 6b 75 72 69 2d 63 68 | 61 72 20 73 6b 6b 2d 68 |okuri-ch|ar skk-h|
|00001b50| 65 6e 6b 61 6e 2d 6f 6b | 75 72 69 67 61 6e 61 20 |enkan-ok|urigana |
|00001b60| 73 6b 6b 2d 68 65 6e 6b | 61 6e 2d 6b 65 79 20 73 |skk-henk|an-key s|
|00001b70| 6b 6b 2d 63 75 72 72 65 | 6e 74 2d 73 65 61 72 63 |kk-curre|nt-searc|
|00001b80| 68 2d 70 72 6f 67 2d 6c | 69 73 74 20 73 6b 6b 2d |h-prog-l|ist skk-|
|00001b90| 6e 75 6e 69 6f 6e 20 73 | 6b 6b 2d 73 65 61 72 63 |nunion s|kk-searc|
|00001ba0| 68 20 73 6b 6b 2d 72 65 | 63 6f 6d 70 75 74 65 2d |h skk-re|compute-|
|00001bb0| 6e 75 6d 65 72 61 6c 73 | 2d 6b 65 79 5d 20 35 5d |numerals|-key] 5]|
|00001bc0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6b 6b |).(defal|ias 'skk|
|00001bd0| 2d 75 6e 69 71 2d 6e 75 | 6d 65 72 61 6c 73 20 23 |-uniq-nu|merals #|
|00001be0| 5b 6e 69 6c 20 22 08 3f | ae 82 09 3f 3f 85 2f 01 |[nil ".?|...??./.|
|00001bf0| c2 20 1b 1b c4 8e c5 c6 | 89 89 89 c7 c8 c9 ca cb |. ......|........|
|00001c00| 1b 0e 0c 5c 22 5c 22 56 | c6 89 89 89 89 89 89 89 |...\"\"V|........|
|00001c10| 89 89 89 89 1e 0d 1e 1b | 0e 1e 1b 0f 1e 10 1e 11 |........|........|
|00001c20| 1e 12 1e 13 1e 14 1e 15 | 1e 16 1e 17 1e 18 1e 19 |........|........|
|00001c30| 1e 1a 1e 1b 1b 1e 1c 1e | 1d 1e 1e 1b 0e 1e 54 89 |........|......T.|
|00001c40| 16 1e 09 38 89 16 1c 83 | fc 00 1b 0e 1c 3a ab 8e |...8....|.....:..|
|00001c50| df 1b 0e 1c 40 09 5c 22 | 11 df 1b 0e 1c 41 09 5c |....@.\"|.....A.\|
|00001c60| 22 11 1b 0e 20 ab b2 1b | 0e 1c 3a ab ad c5 16 1d |"... ...|..:.....|
|00001c70| 1b 0e 1d 54 89 16 1d 09 | 38 89 16 1b 1b ab 9d 1b |...T....|8.......|
|00001c80| 0e 1e 1b 0e 1d 55 ac 6c | 1b 0e 1b 1b 3a ab 67 1b |.....U.l|....:.g.|
|00001c90| 0e 1c 41 1b 0e 1b 1b 41 | 98 ab 5e e1 1b 0e 1b 1b |..A....A|..^.....|
|00001ca0| 09 5c 22 11 aa 56 1b 0e | 19 ab 25 1b 0e 1c 3a ab |.\"..V..|..%...:.|
|00001cb0| 85 1b 0e 1c 40 aa 82 1b | 0e 1c 16 1a e2 e3 1b 0e |....@...|........|
|00001cc0| 1a 5c 22 ab 9b 1b 0e 1c | 16 18 1b 0e 1e 16 16 1b |.\".....|........|
|00001cd0| 0e 1a e4 89 94 4f 16 14 | 1b 0e 1a e4 95 c6 4f 16 |.....O..|......O.|
|00001ce0| 12 82 4e 00 e2 e5 1b 0e | 1a 5c 22 83 4e 00 1b 0e |..N.....|.\".N...|
|00001cf0| 1c 16 17 1b 0e 1e 16 15 | 1b 0e 1a e4 89 94 4f 16 |........|......O.|
|00001d00| 13 1b 0e 1a e4 95 c6 4f | 16 11 82 4e 00 1b 0e 19 |.......O|...N....|
|00001d10| ad ad 1b 0e 18 ad a9 1b | 0e 17 ad a5 1b 0e 14 1b |........|........|
|00001d20| 0e 13 98 ad 9e 1b 0e 12 | 1b 0e 11 98 ad 97 1b 0e |........|........|
|00001d30| 16 1b 0e 15 56 ab 89 e1 | 1b 0e 18 09 5c 22 89 11 |....V...|....\"..|
|00001d40| aa 87 e1 1b 0e 17 09 5c | 22 89 11 2e 14 87 22 20 |.......\|"....." |
|00001d50| 5b 73 6b 6b 2d 75 6e 69 | 71 2d 6e 75 6d 65 72 61 |[skk-uni|q-numera|
|00001d60| 6c 73 20 73 6b 6b 2d 68 | 65 6e 6b 61 6e 2d 6c 69 |ls skk-h|enkan-li|
|00001d70| 73 74 20 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |st match|-data ma|
|00001d80| 74 63 68 2d 64 61 74 61 | 20 28 28 73 74 6f 72 65 |tch-data| ((store|
|00001d90| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 6d 61 74 63 |-match-d|ata matc|
|00001da0| 68 2d 64 61 74 61 29 29 | 20 2d 31 20 6e 69 6c 20 |h-data))| -1 nil |
|00001db0| 32 20 61 70 70 6c 79 20 | 6d 61 78 20 6d 61 70 63 |2 apply |max mapc|
|00001dc0| 61 72 20 6c 65 6e 67 74 | 68 20 73 6b 6b 2d 6e 75 |ar lengt|h skk-nu|
|00001dd0| 6d 2d 6c 69 73 74 20 63 | 61 73 65 2d 66 6f 6c 64 |m-list c|ase-fold|
|00001de0| 2d 73 65 61 72 63 68 20 | 65 6e 61 62 6c 65 2d 6d |-search |enable-m|
|00001df0| 75 6c 74 69 62 79 74 65 | 2d 63 68 61 72 61 63 74 |ultibyte|-charact|
|00001e00| 65 72 73 20 6d 63 2d 66 | 6c 61 67 20 6b 61 6e 6a |ers mc-f|lag kanj|
|00001e10| 69 2d 66 6c 61 67 20 74 | 61 69 6c 33 20 74 61 69 |i-flag t|ail3 tai|
|00001e20| 6c 32 20 68 65 61 64 33 | 20 68 65 61 64 32 20 69 |l2 head3| head2 i|
|00001e30| 6e 64 65 78 33 20 69 6e | 64 65 78 32 20 74 79 70 |ndex3 in|dex2 typ|
|00001e40| 65 33 20 74 79 70 65 32 | 20 74 79 70 65 32 61 6e |e3 type2| type2an|
|00001e50| 64 33 20 65 33 20 65 32 | 20 65 31 20 6e 32 20 6e |d3 e3 e2| e1 n2 n|
|00001e60| 31 20 64 65 6c 65 74 65 | 20 73 6b 6b 2d 72 65 63 |1 delete| skk-rec|
|00001e70| 6f 6d 70 75 74 65 2d 6e | 75 6d 65 72 61 6c 73 2d |ompute-n|umerals-|
|00001e80| 6b 65 79 20 64 65 6c 71 | 20 73 74 72 69 6e 67 2d |key delq| string-|
|00001e90| 6d 61 74 63 68 20 22 23 | 32 22 20 30 20 22 23 33 |match "#|2" 0 "#3|
|00001ea0| 22 5d 20 31 39 5d 29 0a | 28 64 65 66 61 6c 69 61 |"] 19]).|(defalia|
|00001eb0| 73 20 27 73 6b 6b 2d 61 | 64 6a 75 73 74 2d 6e 75 |s 'skk-a|djust-nu|
|00001ec0| 6d 65 72 69 63 2d 68 65 | 6e 6b 61 6e 2d 64 61 74 |meric-he|nkan-dat|
|00001ed0| 61 20 23 5b 28 6b 65 79 | 29 20 22 c0 89 89 19 1a |a #[(key|) ".....|
|00001ee0| 1b 1b c4 c5 1b 0e 06 5c | 22 ab 86 1b 0e 06 89 13 |.......\|".......|
|00001ef0| ac 8e c7 1b 0e 06 21 89 | 13 ab 9b 1b 0e 06 0b 98 |......!.|........|
|00001f00| ac 95 1b 0e 08 47 12 c9 | 0b 21 11 1b 0e 08 47 5c |.....G..|.!....G\|
|00001f10| 6e 54 55 ab 93 ca 16 0b | aa 8e 1b 0e 08 1b 0e 06 |nTU.....|........|
|00001f20| 43 a4 16 08 ca 16 0b 1b | 0e 06 11 09 2b 87 22 20 |C.......|....+." |
|00001f30| 5b 6e 69 6c 20 76 61 6c | 20 6f 72 67 6c 65 6e 20 |[nil val| orglen |
|00001f40| 6e 75 6d 65 78 70 20 73 | 74 72 69 6e 67 2d 6d 61 |numexp s|tring-ma|
|00001f50| 74 63 68 20 22 23 5b 30 | 31 32 33 34 39 5d 22 20 |tch "#[0|12349]" |
|00001f60| 6b 65 79 20 73 6b 6b 2d | 72 61 77 2d 6e 75 6d 62 |key skk-|raw-numb|
|00001f70| 65 72 2d 74 6f 2d 73 6b | 6b 2d 72 65 70 20 73 6b |er-to-sk|k-rep sk|
|00001f80| 6b 2d 68 65 6e 6b 61 6e | 2d 6c 69 73 74 20 73 6b |k-henkan|-list sk|
|00001f90| 6b 2d 6e 75 6d 65 72 69 | 63 2d 63 6f 6e 76 65 72 |k-numeri|c-conver|
|00001fa0| 74 20 74 20 73 6b 6b 2d | 6b 61 6b 75 74 65 69 2d |t t skk-|kakutei-|
|00001fb0| 66 6c 61 67 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |flag] 3]|).(defal|
|00001fc0| 69 61 73 20 27 73 6b 6b | 2d 69 6e 69 74 2d 6e 75 |ias 'skk|-init-nu|
|00001fd0| 6d 65 72 69 63 2d 63 6f | 6e 76 65 72 73 69 6f 6e |meric-co|nversion|
|00001fe0| 2d 76 61 72 69 61 62 6c | 65 73 20 23 5b 6e 69 6c |-variabl|es #[nil|
|00001ff0| 20 22 c0 11 c0 89 12 87 | 22 20 5b 6e 69 6c 20 73 | "......|" [nil s|
|00002000| 6b 6b 2d 6e 75 6d 2d 6c | 69 73 74 20 73 6b 6b 2d |kk-num-l|ist skk-|
|00002010| 72 65 63 6f 6d 70 75 74 | 65 2d 6e 75 6d 65 72 61 |recomput|e-numera|
|00002020| 6c 73 2d 6b 65 79 5d 20 | 32 5d 29 0a 28 64 65 66 |ls-key] |2]).(def|
|00002030| 61 6c 69 61 73 20 27 73 | 6b 6b 2d 6e 75 6d 65 72 |alias 's|kk-numer|
|00002040| 69 63 2d 6d 69 64 61 73 | 69 2d 77 6f 72 64 20 23 |ic-midas|i-word #|
|00002050| 5b 6e 69 6c 20 22 08 ae | 81 09 87 22 20 5b 73 6b |[nil "..|..." [sk|
|00002060| 6b 2d 72 65 63 6f 6d 70 | 75 74 65 2d 6e 75 6d 65 |k-recomp|ute-nume|
|00002070| 72 61 6c 73 2d 6b 65 79 | 20 73 6b 6b 2d 68 65 6e |rals-key| skk-hen|
|00002080| 6b 61 6e 2d 6b 65 79 5d | 20 31 5d 29 0a 28 64 65 |kan-key]| 1]).(de|
|00002090| 66 61 6c 69 61 73 20 27 | 73 6b 6b 2d 75 70 64 61 |falias '|skk-upda|
|000020a0| 74 65 2d 6a 69 73 79 6f | 2d 66 6f 72 2d 6e 75 6d |te-jisyo|-for-num|
|000020b0| 65 72 61 6c 73 20 23 5b | 28 6e 6f 63 6f 6e 76 77 |erals #[|(noconvw|
|000020c0| 6f 72 64 20 77 6f 72 64 | 20 26 6f 70 74 69 6f 6e |ord word| &option|
|000020d0| 61 6c 20 70 75 72 67 65 | 29 20 22 08 ad 9c c1 20 |al purge|) ".... |
|000020e0| 1a c3 8e c4 c5 1b 0e 06 | 5c 22 2a ad 8f 08 1e 07 |........|\"*.....|
|000020f0| c8 c9 08 5c 22 88 ca 1b | 0e 0b 1b 0e 0c 5c 22 29 |...\"...|.....\")|
|00002100| 87 22 20 5b 73 6b 6b 2d | 72 65 63 6f 6d 70 75 74 |." [skk-|recomput|
|00002110| 65 2d 6e 75 6d 65 72 61 | 6c 73 2d 6b 65 79 20 6d |e-numera|ls-key m|
|00002120| 61 74 63 68 2d 64 61 74 | 61 20 6d 61 74 63 68 2d |atch-dat|a match-|
|00002130| 64 61 74 61 20 28 28 73 | 74 6f 72 65 2d 6d 61 74 |data ((s|tore-mat|
|00002140| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|00002150| 74 61 29 29 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ta)) str|ing-matc|
|00002160| 68 20 22 23 34 22 20 6e | 6f 63 6f 6e 76 77 6f 72 |h "#4" n|oconvwor|
|00002170| 64 20 73 6b 6b 2d 68 65 | 6e 6b 61 6e 2d 6b 65 79 |d skk-he|nkan-key|
|00002180| 20 6d 65 73 73 61 67 65 | 20 22 25 53 22 20 73 6b | message| "%S" sk|
|00002190| 6b 2d 75 70 64 61 74 65 | 2d 6a 69 73 79 6f 20 77 |k-update|-jisyo w|
|000021a0| 6f 72 64 20 70 75 72 67 | 65 5d 20 33 5d 29 0a 28 |ord purg|e] 3]).(|
|000021b0| 64 65 66 61 6c 69 61 73 | 20 27 73 6b 6b 2d 6e 75 |defalias| 'skk-nu|
|000021c0| 6d 20 23 5b 28 73 74 72 | 29 20 22 c0 c1 5c 6e c3 |m #[(str|) "..\n.|
|000021d0| 23 87 22 20 5b 6d 61 70 | 63 6f 6e 63 61 74 20 23 |#." [map|concat #|
|000021e0| 5b 28 63 29 20 22 08 ab | 85 08 c1 61 ab 84 c2 0b |[(c) "..|...a....|
|000021f0| 21 87 08 c4 61 ac 85 08 | c5 61 ab 86 0b 1b 0e 06 |!...a...|.a......|
|00002200| b7 41 87 0b 1b 0e 07 b7 | 41 87 22 20 5b 73 6b 6b |.A......|A." [skk|
|00002210| 2d 6e 75 6d 62 65 72 2d | 73 74 79 6c 65 20 30 20 |-number-|style 0 |
|00002220| 63 68 61 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 63 |char-to-|string c|
|00002230| 20 74 20 31 20 73 6b 6b | 2d 6e 75 6d 2d 61 6c 69 | t 1 skk|-num-ali|
|00002240| 73 74 2d 74 79 70 65 31 | 20 73 6b 6b 2d 6e 75 6d |st-type1| skk-num|
|00002250| 2d 61 6c 69 73 74 2d 74 | 79 70 65 32 5d 20 32 5d |-alist-t|ype2] 2]|
|00002260| 20 73 74 72 20 22 22 5d | 20 34 5d 29 0a 28 62 79 | str ""]| 4]).(by|
|00002270| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|00002280| 87 22 20 5b 72 75 6e 2d | 68 6f 6f 6b 73 20 73 6b |." [run-|hooks sk|
|00002290| 6b 2d 6e 75 6d 2d 6c 6f | 61 64 2d 68 6f 6f 6b 20 |k-num-lo|ad-hook |
|000022a0| 70 72 6f 76 69 64 65 20 | 73 6b 6b 2d 6e 75 6d 5d |provide |skk-num]|
|000022b0| 20 32 29 0a             |                         | 2).    |        |
+--------+-------------------------+-------------------------+--------+--------+